home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / yatzys_1 / yatzy.frm < prev    next >
Text File  |  1998-10-22  |  25KB  |  823 lines
  1. VERSION 5.00
  2. Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
  3. Begin VB.Form frmYatzy 
  4.    BackColor       =   &H00C0FFFF&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "Yatzy"
  7.    ClientHeight    =   5340
  8.    ClientLeft      =   90
  9.    ClientTop       =   1380
  10.    ClientWidth     =   9090
  11.    Icon            =   "yatzy.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    PaletteMode     =   1  'UseZOrder
  15.    ScaleHeight     =   356
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   606
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin MSFlexGridLib.MSFlexGrid grdScoreBoard 
  20.       Height          =   4665
  21.       Left            =   240
  22.       TabIndex        =   0
  23.       Top             =   240
  24.       Width           =   5085
  25.       _ExtentX        =   8969
  26.       _ExtentY        =   8229
  27.       _Version        =   65541
  28.       Rows            =   19
  29.       Cols            =   11
  30.       FixedRows       =   0
  31.       FixedCols       =   0
  32.       BackColorBkg    =   12632256
  33.       Redraw          =   -1  'True
  34.       Enabled         =   -1  'True
  35.       HighLight       =   0
  36.       GridLinesFixed  =   1
  37.       ScrollBars      =   0
  38.    End
  39.    Begin VB.PictureBox picDice 
  40.       Appearance      =   0  'Flat
  41.       BackColor       =   &H00C0FFFF&
  42.       BorderStyle     =   0  'None
  43.       ForeColor       =   &H80000008&
  44.       Height          =   480
  45.       Index           =   4
  46.       Left            =   7320
  47.       ScaleHeight     =   480
  48.       ScaleWidth      =   480
  49.       TabIndex        =   6
  50.       Top             =   3240
  51.       Width           =   480
  52.    End
  53.    Begin VB.PictureBox picDice 
  54.       Appearance      =   0  'Flat
  55.       BackColor       =   &H00C0FFFF&
  56.       BorderStyle     =   0  'None
  57.       ForeColor       =   &H80000008&
  58.       Height          =   480
  59.       Index           =   3
  60.       Left            =   6600
  61.       ScaleHeight     =   480
  62.       ScaleWidth      =   480
  63.       TabIndex        =   5
  64.       Top             =   3240
  65.       Width           =   480
  66.    End
  67.    Begin VB.PictureBox picDice 
  68.       Appearance      =   0  'Flat
  69.       BackColor       =   &H00C0FFFF&
  70.       BorderStyle     =   0  'None
  71.       ForeColor       =   &H80000008&
  72.       Height          =   480
  73.       Index           =   2
  74.       Left            =   7680
  75.       ScaleHeight     =   480
  76.       ScaleWidth      =   480
  77.       TabIndex        =   4
  78.       Top             =   2520
  79.       Width           =   480
  80.    End
  81.    Begin VB.PictureBox picDice 
  82.       Appearance      =   0  'Flat
  83.       BackColor       =   &H00C0FFFF&
  84.       BorderStyle     =   0  'None
  85.       ForeColor       =   &H80000008&
  86.       Height          =   480
  87.       Index           =   1
  88.       Left            =   6960
  89.       ScaleHeight     =   480
  90.       ScaleWidth      =   480
  91.       TabIndex        =   3
  92.       Top             =   2520
  93.       Width           =   480
  94.    End
  95.    Begin VB.PictureBox picDice 
  96.       Appearance      =   0  'Flat
  97.       BackColor       =   &H00C0FFFF&
  98.       BorderStyle     =   0  'None
  99.       DrawStyle       =   5  'Transparent
  100.       FillStyle       =   0  'Solid
  101.       ForeColor       =   &H00FFFFFF&
  102.       Height          =   480
  103.       Index           =   0
  104.       Left            =   6240
  105.       ScaleHeight     =   480
  106.       ScaleWidth      =   480
  107.       TabIndex        =   2
  108.       Top             =   2520
  109.       Width           =   480
  110.    End
  111.    Begin VB.Timer Timer1 
  112.       Enabled         =   0   'False
  113.       Interval        =   50
  114.       Left            =   5520
  115.       Top             =   4320
  116.    End
  117.    Begin VB.CommandButton cmdHitMe 
  118.       Height          =   735
  119.       Left            =   6120
  120.       TabIndex        =   1
  121.       Top             =   4080
  122.       Width           =   2175
  123.    End
  124.    Begin VB.Image imgNumber 
  125.       Appearance      =   0  'Flat
  126.       Height          =   480
  127.       Index           =   5
  128.       Left            =   8400
  129.       Picture         =   "yatzy.frx":030A
  130.       Top             =   600
  131.       Width           =   480
  132.       Visible         =   0   'False
  133.    End
  134.    Begin VB.Image imgNumber 
  135.       Appearance      =   0  'Flat
  136.       Height          =   480
  137.       Index           =   4
  138.       Left            =   7800
  139.       Picture         =   "yatzy.frx":03DD
  140.       Top             =   600
  141.       Width           =   480
  142.       Visible         =   0   'False
  143.    End
  144.    Begin VB.Image imgNumber 
  145.       Appearance      =   0  'Flat
  146.       Height          =   480
  147.       Index           =   3
  148.       Left            =   7200
  149.       Picture         =   "yatzy.frx":04AC
  150.       Top             =   600
  151.       Width           =   480
  152.       Visible         =   0   'False
  153.    End
  154.    Begin VB.Image imgNumber 
  155.       Appearance      =   0  'Flat
  156.       Height          =   480
  157.       Index           =   2
  158.       Left            =   6600
  159.       Picture         =   "yatzy.frx":0577
  160.       Top             =   600
  161.       Width           =   480
  162.       Visible         =   0   'False
  163.    End
  164.    Begin VB.Image imgNumber 
  165.       Appearance      =   0  'Flat
  166.       Height          =   480
  167.       Index           =   1
  168.       Left            =   6000
  169.       Picture         =   "yatzy.frx":063B
  170.       Top             =   600
  171.       Width           =   480
  172.       Visible         =   0   'False
  173.    End
  174.    Begin VB.Image imgNumber 
  175.       Appearance      =   0  'Flat
  176.       Height          =   480
  177.       Index           =   0
  178.       Left            =   5400
  179.       Picture         =   "yatzy.frx":06F9
  180.       Top             =   600
  181.       Width           =   480
  182.       Visible         =   0   'False
  183.    End
  184.    Begin VB.Menu mnuYatzy 
  185.       Caption         =   "&Spel"
  186.       Begin VB.Menu mnuAbout 
  187.          Caption         =   "&Om"
  188.       End
  189.       Begin VB.Menu mnuHighScore 
  190.          Caption         =   "&High-Score"
  191.       End
  192.       Begin VB.Menu mnuNewGame 
  193.          Caption         =   "&Nytt-Spel"
  194.       End
  195.       Begin VB.Menu mnuSound 
  196.          Caption         =   "&Ljud"
  197.          Checked         =   -1  'True
  198.       End
  199.       Begin VB.Menu mnuRestart 
  200.          Caption         =   "&Starta-Om     (Ctrl+click)"
  201.       End
  202.       Begin VB.Menu mnuRegret 
  203.          Caption         =   "&┼ngra"
  204.       End
  205.       Begin VB.Menu mnuExit 
  206.          Caption         =   "&Avsluta"
  207.       End
  208.    End
  209. End
  210. Attribute VB_Name = "frmYatzy"
  211. Attribute VB_GlobalNameSpace = False
  212. Attribute VB_Creatable = False
  213. Attribute VB_PredeclaredId = True
  214. Attribute VB_Exposed = False
  215. '-------------------------------------------------------------------------
  216. 'Code by:   Anders Fransson
  217. 'Email:     anders.fransson@home.se
  218. 'Internet:  http://hem1.passagen.se/fylke
  219. 'Date:      97-07-25
  220. '-------------------------------------------------------------------------
  221.  
  222. Option Explicit
  223.  
  224. Private msPlayer(4) As String           'Players name
  225. Private miBonusSum(4) As Integer        'Bonus sum for player
  226. Private miTotalSum(4) As Integer        'Total sum for player
  227. Private miOneToSix(4) As Integer        'Nr of clicks in the 1 to 6 rows for player
  228. Private miRoundSum As Integer           'Sum for a round
  229. Private miPlayer As Integer             'Index of player (1-5)
  230. Private miNrOfPlayers As Integer        'Nr of players (1-5)
  231. Private miThrows As Integer             'Nr of throws for a player (0-3)
  232. Private miThrowsIfRegret As Integer     'The last nr of throws for a player (1-3)
  233. Private miRound As Integer              'Round to play (0-10 if single player)
  234. Private miClickedRows As Integer        'Nr of clicked rows (0-15) for last player
  235. Private miLastClickedRow As Integer     'The last clicked row
  236. Private mbNewGame As Boolean            'True if new game is selected
  237. Public mbGameNotStarted As Boolean      'True if game not is started
  238.  
  239. Const COLUMN_WIDTH As Integer = 420
  240. Const MAX_PLAYERS As Integer = 5
  241. Const DICE_MOVE As Integer = 150
  242.  
  243. 'Text constants
  244. Const TEXT_HIT_DICES As String = "slσ med tΣrningarna"
  245. Const TEXT_TWO_LEFT As String = "tvσ gσnger till"
  246. Const TEXT_ONE_LEFT As String = "en gσng till"
  247. Const TEXT_CLICK